   3 goto 90
   4 %(U)=W+47;G=82;H=-39;gosub 7
   5 box Imul 39-116,38,7,9,3;return 
   6 %(U)=134;gosub 7;%(U)=XY;return 
   7 %(V)=(-H+40-F)mul 256+G+73+F;CALLR;return 
   9 TA=Q;VA=9;O=A;Z=B;T=T+9-L;if A=Gif B=H CALLR;gosub 70
  11 CY=38;CX=-108+Imul 39;print #4,T,;VA=0;return 
  20 box G,H,1,17,3;return 
  21 box G,H,17,1,3;return 
  25 if TC=0G=M;H=N
  26 gosub 6;if TC=9VF=2;gosub 28
  27 TC=9;VC=9;VR=2;return 
  28 gosub 6;%(U)=XY;%(V)=Y;M=O;N=Z;return 
  40 O=(A+93)div 18mul 18-82;Z=(B+90)div 18mul 18-84
  50 gosub 60;for MO=Bto 60;next MO;VB=0;VA=0
  51 box O,Z,1,17,3;box O,Z,17,1,3;box O,Z,3,3,1;return 
  60 VB=6;VA=9;TA=53;TB=33;return 
  70 %(U)=134;gosub 7;gosub 60;for VR=Ato 400;next VR
  71 Q=Q-1;T=T+10mul VC;down ;return 
  90 W=5;clear ;CY=0;print "PLAYERS",
  92 P=&(28)div 76+1;CX=0;print #0,P,;if TR(1)=0goto 92
  94 clear ;for A=1to P;CY=38;CX=Amul 39-115;print #0,A
  95 @(A)=0;@(A+4)=8;next A;I=1;gosub 4
 100 for A=9to 40;@(A)=11111;next A;box 0,0,160,88,3
 102 F=6;box -1,-3,143,71,2;down ;%(U)=133
 109 T=@(I);Q=@(I+4)div 100;L=RM;S=8;BC=Lmul 48-1
 110 for G=-64to 70step 18;for H=-30to 30step 18
 115 S=S+1;if @(S)div *(I+1)if RM>*(I)-1gosub 7
 120 if rnd (L)#1gosub rnd (2)+19;box G,H,3,3,1
 125 next H;next G;A=2;B=30;F=0;XY=Ldiv 2+128;M=2;N=-B
 199 X=-9999;Y=X;G=X;for Q=Q;for S=Qto 31step 0
 200 C=JX(1)mul 6;D=JY(1)mul 6;VR=VR+1
 202 E=0;if PX(A+C-1,B+D-1)=0E=1mul (B+D<35)
 205 if E%(U)=128;%(V)=X;CALLR;A=A+C;B=B+D
 206 if E%(V)=(-B+40)mul 256+A+73;CALLR;X=%(V)
 210 if PX(A,B)=0gosub 40
 230 if Eif PX(A+1,B)%(U)=133;CALLR;gosub 9;next Q
 235 if rnd (3)=1J=(M<A)mul 12-6;K=(N<B)mul 12-6
 240 %(U)=XY;if PX(M+J,N)J=0
 250 if PX(M,N+K)K=0
 252 if VR>Lmul 4if N<31if PX(M,N-1)gosub 25
 255 M=M+J;N=N+K;%(V)=Y;CALLR
 260 %(V)=(-N+39)mul 256+73+M;CALLR
 270 if A<M+7if A>M-7if B<N+7if B>N-7S=99
 290 Y=%(V);next S;D=(Q>31)
 300 if D L=L-(L>2);gosub 600;goto 102
 310 gosub 600;gosub 4;I=I+1;if I>P I=1;W=W-1
 315 if Wgosub 4;goto 102
 500 CY=0;down ;CX=-17;print "THE END
 510 if TR(1)run 
 520 goto 510
 600 M=*(I);CALLR;%(U)=128;%(V)=X;CALLR
 601 if PX(G,H+1)gosub 6
 605 down ;gosub 60;S=9;@(I)=T;for A=-58to 68step 18
 610 for B=-25to 36step 18;if @(S)div *(I+1);if D=0VR=B
 625 if RM>M-1if PX(A,B)=0@(S)=@(S)-M
 630 if D@(S)=@(S)+M;Q=0;TA=*(S-3)div 100;TB=RM;gosub 5
 645 S=S+1;next B;next A;@(I+4)=Qmul 100+L;return 
>